10 POKE53280,.:POKE53281,.:PRINTCHR$(147):V=53248:
12 FORI=832TO894:READD:POKEI,D:NEXT:POKE2040,13
17 POKE53249,120:POKE53269,1:POKEV+21,255:POKEV+39,. :IFZ>10THEN 190
18 FORZ=0TO13:PRINTTAB(6)"[199]LEICH"TAB(28)"[203]OMMT [147][145]":POKE646,INT(RND(0)*15)+0
19 POKE53272,22:NEXTZ
20 :PRINT"[215]IRKLICH,[215]AHRHAFTIGUND[197]NDGUELTIG";:
21 :PRINT"[152]     [196] [193] [211]              [197][160][206][160][196][160][197][160]!":
25 FORX=60TO118:PRINT"[156][169][166][158][255][129][255][255][255][223][169][223][169][156][169][223][169][223][169][223][149][223][169][223][169][223][169][169][223][169][223][169][223][129][223][169][223][169][255][255][255][150][169][255][153][166][169]  [157][157]";
30 Y1=120+SQR(130*X-X*X):Y2=120-SQR(130*X-X*X)+.249::POKEV+39,X
32 FORY=Y1TOY2STEPY1-Y2:GOSUB90:NEXTY,X
34 FORX=110TO30STEP-5:Y1=120-SQR(110*X-X*X):Y2=120+SQR(110*X-X*X)/.2
37 FORY=Y1TOY2STEPY1-Y2:GOSUB90:NEXTY,X
40 PRINT"[147]          ":PRINT"          ":PRINT"          ":PRINT"          "
45 GOTO17
90 POKE53249,INT(X):POKE53248,INT(Y):RETURN
150 DATA13,116,0,30,222,0,61,178,0,108,4,0,249,16,0,234,154,0
160 DATA210,8,0,105,64,128,104,135,128,48,8,0,48,36,0,32,24,0
170 DATA16,4,0,8,5,93,8,9,81,16,17,217,32,33,80,121,145,93
180 DATA214,248,0,244,244,0,207,100,0
190 TI$="000002":WAIT161,1:GOTO195
195 PRINT"[147]>   [206][160][213][160][206]   [201][160][211][160][212]   [215][160][201][160][210][160][203][160][204][160][201][160][195][160][200]:[146]   <";
200 PRINT"   [169][169]   [169][169]  [169]  [169] [169]    [169]  [169]  [169][169]   [169][169]  [169]
201 [153]"  (null)CLOSECLOSE(null)CLOSE(null)CLOSECLOSE(null)CLOSE(null)CLOSECLOSE(null)CLOSE(null)CLOSECLOSECLOSECLOSE(null)CLOSE (null) (null)  (null) (null)  (null) (null)
202 PRINT"[156]  [169]    [169]    [169]  [169] [169]    [169]  [169] [169]    [169]    [169]
203 [153]"DEF   (null)(null)  (null)    (null)(null)(null)(null) (null)    (null)  (null)  (null)(null)   (null)(null)  (null)
204 PRINT"[158]     [169] [169]    [169]  [169] [169]    [169]  [169]    [169]    [169] [169]
205 [153]"  (null)  (null) (null)  (null) (null)  (null) (null)  (null) (null)  (null) (null)  (null) (null)  (null)
206 PRINT"[129]   [169][169]   [169][169]  [169]  [169] [169][169][169][169]  [169][169]   [169][169]   [169][169]  [169]
207 TI$[178]"000003":[146]161,1:[151]53272,21:  [158]58253